home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / program / snpd9611.zip / DBLROUND.C < prev    next >
Text File  |  1996-11-24  |  266b  |  15 lines
  1. .I 0 2
  2. /* +++Date last modified: 06-Sep-1996 */
  3.  
  4. .I 27 1
  5.       static volatile double X;
  6. .I 30 4
  7.             X = -x;
  8.       else  X = x;
  9.       X += 1.0 / DBL_EPSILON;
  10.       X -= 1.0 / DBL_EPSILON;
  11. .D 31 3
  12. .I 34 1
  13.       return ((flag) ? -X : X);
  14. .D 35 1
  15.